home *** CD-ROM | disk | FTP | other *** search
- ;*
- ;* Install Script For NewScreenLib V1.00
- ;*
- ;* Done By -> AlphaSOUND <-
- ;*
-
- (complete 0)
-
- ;*** Directory Select ***
-
- (complete 10)
-
- (set DestDir
- (askdir
- (prompt "Where is localized your BlitzLibs drawer ?")
- (help "")
- (default "BlitzLibs:")
- )
- )
-
- (set DestDir (expandpath DestDir))
- (set NDir (tackon DestDir "NLibs"))
-
-
- (set ExampleDir
- (askdir
- (prompt "Where do you want to install the examples files ?")
- (help "")
- (default "Blitz2:")
- )
- )
-
- (set ExampleDir (expandpath ExampleDir))
-
- (makedir NDir)
-
- (complete 50)
-
- (copyfiles
- (source "Resident")
- (dest DestDir)
- (pattern "NLibs.res")
- )
-
- (complete 70)
-
- (copyfiles
- (source "NLibs")
- (dest NDir)
- (pattern "#?.obj")
- )
-
-
- (complete 90)
-
- (copyfiles
- (source "Examples")
- (dest ExampleDir)
- (pattern "#?.bb2#?")
- )
-
-
- (complete 100)
-
- (set RunMake (askbool (prompt
-
- "\nThank you to let give a try to this new library set.\n\n"
-
- "The installation is complete and you must now launch the MAKEDEFLIBS program "
- "which is located in your BlitzLibs: drawer.\n\n"
-
- "I can do it for you. Click on 'Run It' to run the MAKEDEFLIBS program or on"
- "'Skip' to skip this part.\n\n"
-
- "Have fun with theses libraries !\n\n"
-
- "Fred -> AlphaSOUND <-")
-
- (help "")
- (choices "Run it !"
- "Skip it !"
- )
- )
- )
-
-
- (if (= 1 RunMake)
- (
- (working "Makedeflibs is being to update your deflibs...")
- (run ("BlitzLibs:MakeDefLibs"))
- ))
-
-
-
-
-
-
-
-
-
-